home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / Gurus99_15O2_u.lha / Gurus99 / Update < prev    next >
Text File  |  1999-02-20  |  2KB  |  95 lines
  1. ; $VER: Update Gurus99
  2. ; © by Demon 1999
  3.  
  4. (complete 0)
  5.  
  6. (if (= @language "deutsch")
  7. (
  8.     (set #welcome
  9.     (cat "\n\n\nHerzlich willkommen beim Gurus99 - Update\n\n"
  10.     "(Version 15.O1 wird benötigt)\n\n\n"
  11.     "Gurus99  © by Demon 1999"
  12.     ))
  13.     (set #choose-text
  14.     (cat "Wähle das Verzeichnis in dem sich das Gurus99-Verzeichnis befindet."
  15.     ))
  16.     (set #choose-pic
  17.     (cat "Wähle einen Bildanzeiger für .jpg und .iff (.ilbm)."
  18.     ))
  19.     (set #exit
  20.     (cat "\n\nViel Spaß mit Gurus99"
  21.     ))
  22. ))
  23.  
  24. (if (= @language "english")
  25. (
  26.     (set #welcome
  27.     (cat "\n\n\nWelcome to the Gurus99 - Update\n\n"
  28.     "(Version 15.O1 is required)\n\n\n"
  29.     "Gurus99  © by Demon 1999"
  30.     ))
  31.     (set #choose-text
  32.     (cat "Choose the drawer location of your previous Gurus99-Version."
  33.     ))
  34.     (set #choose-pic
  35.     (cat "Choose a pictureviewer for .jpg and .iff (.ilbm)."
  36.     ))
  37.     (set #exit
  38.     (cat "\n\nHave fun with Gurus99"
  39.     ))
  40. ))
  41. ;********************
  42. (message #welcome)
  43.  
  44. (welcome)
  45.  
  46. (set @default "SYS:")
  47. (set @default (askdir
  48.     (prompt #choose-text)
  49.     (help (cat @askdir-help))
  50.     (default @default))
  51. )
  52. (set @default (tackon @default "Gurus99"))
  53.  
  54. (delete %s (tackon @default "data/newicons"))
  55. (delete %s (tackon @default "data/newicons.html"))
  56. (delete %s (tackon @default "data/vt"))
  57.  
  58. (complete 5)
  59. ;********************
  60. (copyfiles
  61.     (source "G99")
  62.     (dest    @default)
  63.     (newname "Gurus99")
  64. )
  65. (complete 30)
  66.  
  67. (copyfiles
  68.     (source "G.htm")
  69.     (dest    @default)
  70.     (newname "Gurus99.html")
  71. )
  72. (complete 55)
  73. ;********************
  74. (copyfiles
  75.     (source    "dt")
  76.     (dest    (tackon @default "data"))
  77.         (pattern "#?")
  78. )
  79. (complete 95)
  80. ;********************
  81. (set @pic "c:")
  82. (set @pic (askfile
  83.     (prompt #choose-pic)
  84.     (help (cat @askfile-help))
  85.     (default @pic))
  86. )
  87. (copyfiles
  88.     (source    @pic)
  89.         (dest    (tackon @default "data/"))
  90.     (newname "V")
  91. )
  92. (complete 100)
  93. ;********************
  94. (EXIT #exit (quiet))
  95.